home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
QRZ! Ham Radio 8
/
QRZ Ham Radio Callsign Database - Volume 8.iso
/
pc
/
files
/
mac
/
proj_a1.hqx
/
Project Mac - A1
/
Amateur Radio Grid Locator
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1987-12-04
|
2KB
|
56 lines
' ********************************************************
' * PROGRAM FOR COMPUTING MAIDENHEAD LOCATOR SQUARES *
' ********************************************************
' * This program is from "The ARRL World Grid Locator Atlas" *
' * Copyright 1984 Folke Rosval, SM5AGM. This atlas is Available *
' * from ARRL HQ for $4.00 . This program entered and modified for the * *
' * Macintosh by Jim Bradbury, WB5ACL / DA2ND, December 1987 *
' ********************************************************
PRINT"This Program Calculates Maidenhead Locator Squares"
PRINT "as found in 'The ARRL World Grid Locator Atlas.'"
PRINT
PRINT"For Western Longitude and Southern Latitude - Enter Neg Values."
PRINT
PRINT
PRINT " Example Locations Lat Long"
PRINT "Worms, Germany (Taukkunen Bks) = 49í40'N 08í21'E"
PRINT "Mannheim, Germany (Taylor Bks) = 49í31'N 08í33'E"
PRINT "Mannheim, Germany (Hammond Bks) = 49í28'N 08í33'E"
PRINT
100 PRINT"(D)egrees, (M)inutes, (S)econds"
120 INPUT"Enter Latitude (D, M, S) "; LatD, LatM, LatS
E=1e-06
Lat = LatD + LatM/60 + LatS/3600 + E
IF Lat<-90 OR Lat >= 90 THEN 120
122 INPUT"Enter Longitude (D, M, S) ";longD, LongM, LongS
Long = longD + LongM/60 + LongS/3600 + E
IF Long <-180 OR Long >= 180 THEN 122
130 A = Long/20+9
B = Lat/10+9
C = INT(A)
D = INT(B)
A$ = CHR$(C+65) + CHR$(D+65)
140 A = (A-C) * 10
B = (B-D) * 10
C = INT(A)
D = INT(B)
150 A$ = A$ + CHR$(C+48) + CHR$(D+48)
A$ = A$ + CHR$(INT((A-C)*24)+65)+CHR$(INT((B-D)*24)+65)
160 PRINT
PRINT "For Latitude ";
PRINT Lat"í";
IF Lat => 0 THEN PRINT "N; ";
IF Lat < 0 THEN PRINT "S; ";
PRINT "Longitude "Long"í";
IF Long => 0 THEN PRINT "E"
IF Long <0 THEN PRINT "W"
PRINT "The Maidenhead Locator Square is ";
<0xac48fe,0x07>(12):<0x14,0x00>(0):<0x14,0x01>(0)
PRINT A$
<0xac4949,0x07>(12):<0x14,0x00>(0):<0x14,0x01>(9)
PRINT
GOTO 100